home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / sprite.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  647 b   |  39 lines  |  [TEXT/ttxt]
  1. class Sprite ()
  2. end
  3.  
  4.  
  5. method trueHeightSetter self {class Sprite} value ->
  6. (
  7.   local myheight := self.height
  8.   value := value / myheight
  9.  
  10.   self.transform.d := value
  11.   self.changed := true
  12. )
  13.  
  14. method trueWidthSetter self {class Sprite} value ->
  15. (
  16.   local myWidth := self.width
  17.   value := value / myWidth
  18.  
  19.   self.transform.a := value
  20.   self.changed := true
  21. )
  22.  
  23.  
  24. method resetDimensions self {class Sprite} ->
  25. (
  26.     self.transform.a := self.transform.d := 1
  27. )
  28.  
  29. method addedToScore self {class Sprite} myPlayer targetNum ->
  30. (
  31.     append myPlayer.stage self
  32. )
  33.  
  34. method removedFromScore self {class Sprite} myPlayer ->
  35. (
  36.     deleteOne self.presentedBy self
  37.     self
  38. )
  39.